﻿object UMantenimiento_Presup_Clientes: TUMantenimiento_Presup_Clientes
  Left = 0
  Top = 0
  Align = alClient
  Caption = 'Mantenimiento de Presupuestos de Clientes'
  ClientHeight = 742
  ClientWidth = 1113
  Color = clBtnFace
  OldCreateOrder = False
  MonitoredKeys.Keys = <>
  PixelsPerInch = 96
  TextHeight = 13
  object pgPresupuestos: TUniPageControl
    Left = 0
    Top = 0
    Width = 1113
    Height = 742
    ParentShowHint = False
    ActivePage = UniTabSheet1
    TabOrder = 0
    Align = alClient
    Anchors = [akLeft, akTop, akRight, akBottom]
    ExplicitLeft = -666
    ExplicitTop = -540
    object UniTabSheet1: TUniTabSheet
      Caption = 'Consulta'
      ExplicitLeft = 0
      ExplicitTop = 0
      ExplicitWidth = 0
      ExplicitHeight = 0
      object pnlBuscar: TUniPanel
        Left = 0
        Top = 41
        Width = 1105
        Height = 168
        Align = alTop
        Anchors = [akLeft, akTop, akRight]
        Color = clBtnFace
        TabOrder = 0
        object cbxFechaEmision: TUniCheckBox
          Left = 330
          Top = 15
          Width = 136
          Height = 17
          Checked = False
          Caption = 'Fecha de emision:'
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 1
        end
        object dbDesdeC: TUniDateTimePicker
          Left = 388
          Top = 38
          Width = 120
          Height = 21
          DateTime = 41043.000000000000000000
          DateFormat = 'dd/MM/yyyy'
          TimeFormat = 'HH:mm:ss'
          Kind = tUniDate
          FirstDayOfWeek = dowLocaleDefault
          TabOrder = 2
          ParentColor = False
          Color = clWhite
        end
        object dbHastaC: TUniDateTimePicker
          Left = 388
          Top = 81
          Width = 120
          Height = 21
          DateTime = 41043.000000000000000000
          DateFormat = 'dd/MM/yyyy'
          TimeFormat = 'HH:mm:ss'
          Kind = tUniDate
          FirstDayOfWeek = dowLocaleDefault
          TabOrder = 3
          ParentColor = False
          Color = clWhite
        end
        object lblDesde: TUniLabel
          Left = 330
          Top = 38
          Width = 44
          Height = 17
          Caption = 'Desde:'
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 4
        end
        object lblHasta: TUniLabel
          Left = 330
          Top = 85
          Width = 41
          Height = 17
          Caption = 'Hasta:'
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 5
        end
        object lblCodigoProveedorC: TUniLabel
          Left = 582
          Top = 40
          Width = 50
          Height = 17
          Caption = 'Cliente:'
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 6
        end
        object dbCodigoP: TUniEdit
          Left = 661
          Top = 37
          Width = 85
          Height = 22
          PasswordChar = #0
          CharCase = ecNormal
          MaxLength = 0
          CharEOL = #0
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 7
          Color = clWindow
        end
        object btnBuscadorP: TUniButton
          Left = 753
          Top = 35
          Width = 25
          Height = 22
          Caption = '...'
          TabOrder = 8
        end
        object dbNombreP: TUniEdit
          Left = 784
          Top = 37
          Width = 313
          Height = 22
          PasswordChar = #0
          CharCase = ecNormal
          MaxLength = 0
          CharEOL = #0
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 9
          Color = clWindow
        end
        object dbBusqueda: TUniEdit
          Left = 20
          Top = 48
          Width = 262
          Height = 22
          PasswordChar = #0
          CharCase = ecUpperCase
          MaxLength = 0
          CharEOL = #0
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 10
          Color = clWindow
        end
        object rbComience: TUniRadioButton
          Left = 20
          Top = 84
          Width = 129
          Height = 17
          Checked = False
          Caption = 'Que comience con'
          TabOrder = 11
          ParentFont = False
          Font.Name = 'Century Gothic'
        end
        object rbContenga: TUniRadioButton
          Left = 169
          Top = 84
          Width = 113
          Height = 17
          Checked = False
          Caption = 'Que contenga'
          TabOrder = 12
          ParentFont = False
          Font.Name = 'Century Gothic'
        end
        object cbxCodigoPresup: TUniCheckBox
          Left = 20
          Top = 15
          Width = 184
          Height = 17
          Checked = False
          Caption = 'Nombre de Presupuesto:'
          ParentFont = False
          Font.Height = -13
          Font.Name = 'Century Gothic'
          TabOrder = 13
        end
      end
      object btnBuscarP: TUniButton
        Left = 0
        Top = 209
        Width = 1105
        Height = 40
        Caption = 'Buscar'
        Anchors = [akLeft, akTop, akRight]
        Align = alTop
        ParentFont = False
        Font.Height = -20
        TabOrder = 1
      end
      object dbgConsultaPresupuestos: TUniDBGrid
        Left = 0
        Top = 249
        Width = 1105
        Height = 465
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
        ReadOnly = True
        WebOptions.LoadMaskMsg = 'Please wait...'
        StripeRows = False
        Align = alClient
        Anchors = [akLeft, akTop, akRight, akBottom]
        TabOrder = 2
        Columns = <
          item
            FieldName = 'ID_PRESUPUESTO'
            Title.Alignment = taCenter
            Title.Caption = 'ID PRESUPUESTO'
            Width = 92
            Visible = True
            Alignment = taCenter
            Expanded = False
          end
          item
            FieldName = 'DESCRIPCION_PRESUP'
            Title.Alignment = taCenter
            Title.Caption = 'DESCRIPCION'
            Width = 604
            Visible = True
            Alignment = taCenter
            Expanded = False
          end
          item
            FieldName = 'FECHA_EMISION'
            Title.Alignment = taCenter
            Title.Caption = 'FECHA DE EMISION'
            Width = 86
            Visible = True
            Alignment = taCenter
            Expanded = False
          end
          item
            FieldName = 'FECHA_VENCIMIENTO'
            Title.Alignment = taCenter
            Title.Caption = 'FECHA DE VENCIMIENTO'
            Width = 112
            Visible = True
            Alignment = taCenter
            Expanded = False
          end
          item
            FieldName = 'COSTO_GENERAL'
            Title.Alignment = taCenter
            Title.Caption = 'COSTO GENERAL'
            Width = 118
            Visible = True
            Alignment = taCenter
            Expanded = False
          end
          item
            FieldName = 'IVA_GENERAL'
            Title.Alignment = taCenter
            Title.Caption = 'IVA GENERAL'
            Width = 118
            Visible = True
            Alignment = taCenter
            Expanded = False
          end
          item
            FieldName = 'ESTADO_REGISTRO'
            Title.Alignment = taCenter
            Title.Caption = 'ESTADO DE REGISTRO'
            Width = 101
            Visible = True
            Alignment = taCenter
            Expanded = False
          end>
      end
      object pnlTitulo: TUniPanel
        Left = 0
        Top = 0
        Width = 1105
        Height = 41
        Align = alTop
        Anchors = [akLeft, akTop, akRight]
        Color = clBtnFace
        TabOrder = 3
        object lblTitulo: TUniLabel
          Left = 1
          Top = 1
          Width = 1103
          Height = 39
          Alignment = taCenter
          AutoSize = False
          Caption = 'Consulta de Presupuestos de Clientes'
          Align = alClient
          Anchors = [akLeft, akTop, akRight, akBottom]
          ParentFont = False
          Font.Color = clNavy
          Font.Height = -20
          Font.Name = 'Century Gothic'
          Font.Style = [fsBold]
          ParentColor = False
          Color = clSkyBlue
          Transparent = False
          TabOrder = 1
        end
      end
    end
    object UniTabSheet2: TUniTabSheet
      Caption = 'Mantenimiento'
      ExplicitLeft = 0
      ExplicitTop = 0
      ExplicitWidth = 0
      ExplicitHeight = 0
      object pnlGeneral: TUniPanel
        Left = 0
        Top = 0
        Width = 1105
        Height = 714
        Align = alClient
        Anchors = [akLeft, akTop, akRight, akBottom]
        Color = clBtnFace
        TabOrder = 0
        object pnlBotones: TUniPanel
          Left = 1
          Top = 40
          Width = 1103
          Height = 49
          Align = alTop
          Anchors = [akLeft, akTop, akRight]
          Color = clBtnFace
          TabOrder = 1
          object btnGuardarPresup: TUniButton
            Left = 80
            Top = 20
            Width = 75
            Height = 23
            Caption = '&Guardar'
            TabOrder = 1
          end
          object btnCancelarPresup: TUniButton
            Left = 231
            Top = 21
            Width = 75
            Height = 23
            Caption = '&Cancelar'
            TabOrder = 2
          end
          object btnNuevoPresup: TUniButton
            Left = 3
            Top = 20
            Width = 75
            Height = 23
            Caption = '&Nuevo'
            TabOrder = 3
          end
          object btnEditarPresup: TUniButton
            Left = 80
            Top = 20
            Width = 75
            Height = 23
            Caption = '&Editar'
            TabOrder = 4
          end
          object btnEliminarPresup: TUniButton
            Left = 155
            Top = 21
            Width = 75
            Height = 23
            Caption = '&Dar de Baja'
            TabOrder = 5
          end
          object lblTarea: TUniLabel
            Left = 3
            Top = 4
            Width = 147
            Height = 16
            Caption = ' Seleccione una tarea:'
            ParentFont = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 6
          end
        end
        object pnlCargaDatosPresup: TUniPanel
          AlignWithMargins = True
          Left = 3
          Top = 92
          Width = 1099
          Height = 619
          Align = alClient
          Anchors = [akLeft, akTop, akRight, akBottom]
          Color = clBtnFace
          TabOrder = 2
          ExplicitHeight = 213
          object dbCodigoPresup: TUniDBEdit
            Left = 276
            Top = 52
            Width = 88
            Height = 22
            Enabled = False
            DataField = 'ID_PRESUPUESTO'
            PasswordChar = #0
            CharCase = ecUpperCase
            MaxLength = 0
            CharEOL = #0
            ParentFont = False
            Font.Name = 'Century Gothic'
            TabOrder = 1
            Color = clWindow
          end
          object lblCodigoPresupuesto: TUniLabel
            Left = 77
            Top = 58
            Width = 158
            Height = 16
            Caption = 'C'#243'digo del Presupuesto:'
            ParentFont = False
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 2
          end
          object lblDenominación: TUniLabel
            Left = 76
            Top = 94
            Width = 98
            Height = 16
            Caption = 'Denominaci'#243'n:'
            ParentFont = False
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 3
          end
          object lblDatosGenerales: TUniLabel
            Left = 77
            Top = 25
            Width = 124
            Height = 16
            Caption = 'DATOS GENERALES:'
            ParentFont = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 4
          end
          object lblFechaEmision: TUniLabel
            Left = 656
            Top = 50
            Width = 118
            Height = 16
            Caption = 'Fecha de emisi'#243'n:'
            ParentFont = False
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 5
          end
          object lblFechaVencimiento: TUniLabel
            Left = 655
            Top = 92
            Width = 147
            Height = 16
            Caption = 'Fecha de vencimiento:'
            ParentFont = False
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 6
          end
          object dbDenominacion: TUniDBMemo
            Left = 276
            Top = 92
            Width = 302
            Height = 23
            DataField = 'DESCRIPCION_PRESUP'
            TabOrder = 7
            Color = clWindow
          end
          object lblCantPersonasPresupuesto: TUniLabel
            Left = 654
            Top = 194
            Width = 299
            Height = 16
            Caption = 'Cantidad de personas para este presupuesto:'
            ParentFont = False
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 8
          end
          object dbCantPersonasPresup: TUniDBEdit
            Left = 965
            Top = 194
            Width = 88
            Height = 22
            Enabled = False
            DataField = 'IVA_GENERAL'
            PasswordChar = #0
            CharCase = ecUpperCase
            MaxLength = 0
            CharEOL = #0
            ParentFont = False
            Font.Name = 'Century Gothic'
            TabOrder = 9
            Color = clWindow
          end
          object dbFechaE: TUniDateTimePicker
            Left = 818
            Top = 50
            Width = 89
            Height = 21
            DateTime = 41067.000000000000000000
            DateFormat = 'dd/MM/yyyy'
            TimeFormat = 'HH:mm:ss'
            Kind = tUniDate
            FirstDayOfWeek = dowLocaleDefault
            TabOrder = 10
            ParentFont = False
            Font.Name = 'Century Gothic'
            ParentColor = False
            Color = clWhite
          end
          object dbFechaVenc: TUniDateTimePicker
            Left = 819
            Top = 92
            Width = 88
            Height = 21
            DateTime = 41067.000000000000000000
            DateFormat = 'dd/MM/yyyy'
            TimeFormat = 'HH:mm:ss'
            Kind = tUniDate
            FirstDayOfWeek = dowLocaleDefault
            TabOrder = 11
            ParentFont = False
            Font.Name = 'Century Gothic'
            ParentColor = False
            Color = clWhite
          end
          object lblCliente: TUniLabel
            Left = 76
            Top = 194
            Width = 50
            Height = 16
            Caption = 'Cliente:'
            ParentFont = False
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 12
          end
          object dbCodProv: TUniEdit
            Left = 276
            Top = 194
            Width = 88
            Height = 22
            ParentShowHint = False
            PasswordChar = #0
            CharCase = ecNormal
            MaxLength = 0
            CharEOL = #0
            ParentFont = False
            Font.Height = -13
            Font.Name = 'Century Gothic'
            TabOrder = 13
            Color = clWindow
          end
          object btnBuscadorMP: TUniButton
            Left = 369
            Top = 194
            Width = 25
            Height = 22
            Caption = '...'
            TabOrder = 14
          end
          object dbNombreProv: TUniEdit
            Left = 400
            Top = 194
            Width = 178
            Height = 22
            PasswordChar = #0
            CharCase = ecNormal
            MaxLength = 0
            CharEOL = #0
            ParentFont = False
            Font.Height = -13
            Font.Name = 'Century Gothic'
            TabOrder = 15
            Color = clWindow
          end
          object lblDatosClientes: TUniLabel
            Left = 76
            Top = 163
            Width = 121
            Height = 16
            Caption = 'DATOS DE CLIENTE:'
            ParentFont = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 16
          end
        end
        object pnl1: TUniPanel
          Left = 1
          Top = 1
          Width = 1103
          Height = 40
          Align = alTop
          Anchors = [akLeft, akTop, akRight]
          Color = clBtnFace
          TabOrder = 3
          object lblMantenimientoPresupuesto: TUniLabel
            Left = 1
            Top = 1
            Width = 1101
            Height = 38
            Alignment = taCenter
            AutoSize = False
            Caption = 'Mantenimiento de Presupuestos de Clientes'
            Align = alClient
            Anchors = [akLeft, akTop, akRight, akBottom]
            ParentFont = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clNavy
            Font.Height = -20
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            ParentColor = False
            Color = clSkyBlue
            Transparent = False
            TabOrder = 1
          end
        end
        object pnlDetalle: TUniPanel
          Left = 3
          Top = 360
          Width = 1129
          Height = 351
          Align = alCustom
          Anchors = [akLeft, akTop, akRight, akBottom]
          Color = clBtnFace
          ParentFont = False
          TabOrder = 4
          object lblDetalle: TUniLabel
            Left = 76
            Top = 17
            Width = 55
            Height = 16
            Caption = 'DETALLE:'
            ParentFont = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 1
          end
          object dbgDetalle: TUniDBGrid
            Left = 78
            Top = 70
            Width = 972
            Height = 107
            Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
            WebOptions.LoadMaskMsg = 'Please wait...'
            StripeRows = False
            ParentFont = False
            TabOrder = 2
            Columns = <
              item
                FieldName = 'CATEGORIA'
                Title.Alignment = taCenter
                Title.Caption = 'CATEGORIA'
                Title.Font.Style = [fsBold]
                Width = 143
                Visible = True
                Font.Style = [fsBold]
                Alignment = taCenter
                Expanded = False
              end
              item
                FieldName = 'SERVICIO'
                Title.Alignment = taCenter
                Title.Caption = 'SERVICIO'
                Title.Font.Style = [fsBold]
                Width = 197
                Visible = True
                Expanded = False
              end
              item
                FieldName = 'PROVEEDOR'
                Title.Alignment = taCenter
                Title.Caption = 'PROVEEDOR'
                Title.Font.Style = [fsBold]
                Width = 212
                Visible = True
                Alignment = taCenter
                Expanded = False
              end
              item
                FieldName = 'COSTO POR PERSONA'
                Title.Alignment = taCenter
                Title.Caption = 'COSTO POR PERSONA'
                Title.Font.Style = [fsBold]
                Width = 418
                Visible = True
                Font.Style = [fsBold]
                Alignment = taCenter
                Expanded = False
              end>
          end
          object lblPrecioPaqT: TUniLabel
            Left = 85
            Top = 362
            Width = 4
            Height = 16
            ParentFont = False
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 3
          end
          object dbPrecioPresup: TUniDBEdit
            Left = 231
            Top = 232
            Width = 231
            Height = 22
            PasswordChar = #0
            CharCase = ecUpperCase
            MaxLength = 0
            CharEOL = #0
            ParentFont = False
            Font.Charset = ANSI_CHARSET
            Font.Name = 'Century Gothic'
            TabOrder = 4
            Color = clWindow
          end
          object lblIVA: TUniLabel
            Left = 654
            Top = 234
            Width = 62
            Height = 16
            Caption = 'IVA (10%)'
            ParentFont = False
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 5
          end
          object dbIVAPresup: TUniDBEdit
            Left = 739
            Top = 232
            Width = 250
            Height = 22
            PasswordChar = #0
            CharCase = ecUpperCase
            MaxLength = 0
            CharEOL = #0
            ParentFont = False
            Font.Charset = ANSI_CHARSET
            Font.Name = 'Century Gothic'
            TabOrder = 6
            Color = clWindow
          end
          object lblCostosXPersona: TUniLabel
            Left = 76
            Top = 201
            Width = 169
            Height = 16
            Caption = 'COSTOS DEL PRESUPUESTO:'
            ParentFont = False
            Font.Charset = ANSI_CHARSET
            Font.Color = clBlack
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 7
          end
          object lblPrecio: TUniLabel
            Left = 76
            Top = 234
            Width = 143
            Height = 16
            Caption = 'Precio (En guaranies):'
            ParentFont = False
            Font.Height = -13
            Font.Name = 'Century Gothic'
            Font.Style = [fsBold]
            TabOrder = 8
          end
          object UniDBNavigator1: TUniDBNavigator
            Left = 78
            Top = 39
            Width = 972
            Height = 25
            VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbCancel]
            ConfirmDelete = True
            TabOrder = 9
          end
        end
      end
    end
  end
end
